home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / SETTEI.DIR / 00002_Script_2 < prev    next >
Text File  |  1997-09-24  |  656b  |  25 lines
  1. on exitFrame
  2.   global SETTEI,stockSETTEI
  3.   set stockSETTEI = value(string(SETTEI))
  4.   
  5.   repeat with i=18 to 21
  6.     puppetSprite i,true
  7.   end repeat
  8.   
  9.   if getAt(SETTEI,1) = 1 then
  10.     set the hilite of cast "ñ珞ﾒ鑰ëﾋﾇﾝﾇﾈ" to true
  11.     set the hilite of cast "鑰ëﾋﾇｵﾇｻﾇ｢" to false
  12.   else
  13.     set the hilite of cast "ñ珞ﾒ鑰ëﾋﾇﾝﾇﾈ" to false
  14.     set the hilite of cast "鑰ëﾋﾇｵﾇｻﾇ｢" to true
  15.   end if
  16.   
  17.   if getAt(SETTEI,2) = 1 then
  18.     set the hilite of cast "BGMﾇ☞ﾋ" to true
  19.     set the hilite of cast "BGMﾇｻﾇｵ" to false
  20.   else
  21.     set the hilite of cast "BGMﾇ☞ﾋ" to false
  22.     set the hilite of cast "BGMﾇｻﾇｵ" to true
  23.   end if
  24.   
  25. end